home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / comm / net / AmiMUD.lha / AmiMUD / rexx / example.amud < prev    next >
Text File  |  1996-09-20  |  3KB  |  122 lines
  1. /* Test script */
  2.  
  3. /* Note that often you have to pass the parameters with DOUBLE quotes
  4.  * if these contains spaces.
  5.  */
  6.  
  7. address 'AmiMUD.1'
  8. am_echo '" "'
  9. am_echo '" "'
  10. am_echo '"Welcome to the AmiMUD rexx example!!!"'
  11. am_echo '"-------------------------------------"'
  12. am_echo '" "'
  13. am_echo '" "'
  14.  
  15. am_getscreen
  16.  
  17. am_echo '"AmiMUD screen (example of am_waitfor):' SCREENNAME '"'
  18.  
  19. say 'AmiMUD screen: ' SCREENNAME
  20.  
  21. am_echo '" "'
  22.  
  23. am_echo '"Waiting for text: Reception (example of am_waitfor)."'
  24. am_echo '"Use #send to simulate it if you are not connected."'
  25. am_waitfor "Reception"
  26.  
  27. am_echo '"Line received (variable linebuffer):' LINEBUFFER '"'
  28.  
  29. say 'Line received:' LINEBUFFER
  30.  
  31. am_echo '" "'
  32.  
  33. am_echo '"Now I''ll define TWO rexxtriggers, their use is in conjunction"'
  34. am_echo '"With the potions REXXONLY of am_waittriggers"'
  35.  
  36. am_addtrigger 'hello' '"#echo Hello world\n"' REXXTRIGGER
  37.  
  38. am_echo '"Defined hello, trigger number:' TRIGGER '"'
  39.  
  40. /* Save the value for further use... */
  41.  
  42. hello_trig=TRIGGER
  43.  
  44. am_addtrigger '"goodbye"' '"#echo Goodbye!\n"' REXXTRIGGER
  45.  
  46. am_echo '"Defined goodbye, trigger number:' TRIGGER '"'
  47.  
  48. /* Save the value for further use... */
  49.  
  50. goodbye_trig=TRIGGER
  51.  
  52. am_echo '" "'
  53.  
  54. am_echo '"Now I''ll wait for a trigger, anyone is good, also if defined in the"'
  55. am_echo '"configuration or through the Add Macro menu."'
  56. am_echo '"Use #send to simulate it if you are not connected."'
  57.  
  58. am_waittriggers
  59.  
  60. say 'Line received:' LINEBUFFER 'trigger:' TRIGGER
  61.  
  62. am_echo '"The activated trigger is number:' TRIGGER 'line:' LINEBUFFER '"'
  63.  
  64. am_echo '" "'
  65.  
  66. am_echo '"Now I''ll wait for a REXXTRIGGER, actually there are only"'
  67. am_echo '"two defined rexxtriggers: hello and goodbye"'
  68.  
  69. am_waittriggers REXXONLY
  70.  
  71. am_echo '"The activated trigger is number:' TRIGGER 'line:' LINEBUFFER '"'
  72. say 'Line received:' LINEBUFFER 'trigger:' TRIGGER
  73.  
  74. am_echo '" "'
  75. am_echo '"Ok, now I''ll set a variable, variable 1 will be <Gabriele Greco>"'
  76.  
  77. am_setvar 1 '"Gabriele Greco"'
  78.  
  79. am_echo '"Now I''ll create a macro that use variable 1, then I''ll execute it."'
  80.  
  81. am_addmacro 'tempmacro' '"#echo Variable 1 is $1\n"'
  82.  
  83. am_echo '"Type <#send ready>  and I''ll execute the macro."'
  84.  
  85. am_waitfor 'ready'
  86.  
  87. am_send '#tempmacro'
  88.  
  89. am_echo '" "'
  90. am_echo '"Ok, now I''ll get variable $2, set it to something intresting and then"'
  91. am_echo '"<#send ready> and I''ll get the variable"'
  92.  
  93. am_waitfor 'ready'
  94.  
  95. am_getvar 2 PROVA
  96.  
  97. am_echo '"Ok, variable $2 was:' PROVA '"'
  98.  
  99. am_echo '" "'
  100. am_echo '" "'
  101.  
  102. am_echo '"And now a simple loop..."'
  103. am_echo '"If you will select the trigger hello (for instance with <#send hello>)"'
  104. am_echo '"This script will quit and ALSO AmiMUD will quit."'
  105. am_echo '" "'
  106. am_echo '"If you select the trigger goodbye (for instance with <#send goodbye>)"'
  107. am_echo '"ONLY the script will quit but AmiMUD will remain active."'
  108.  
  109. TRIGGER=0;
  110.  
  111. do while TRIGGER<>goodbye_trig
  112.     waittriggers;
  113.  
  114.     if TRIGGER=hello_trig then am_quit
  115.     
  116. end;
  117.  
  118. am_echo '"You have selected to keep alive AmiMUD, ok, use #rx or the menu option"'
  119. am_echo '"to start a script more useful than me :) Please note that you can include"'
  120. am_echo '"#rx in macros, so you can also execute arexx script with hotkeys."'.
  121.  
  122.